home *** CD-ROM | disk | FTP | other *** search
/ CD School House 9 / CD School House 9.0 - Wayzata Technology (1994).iso / pc / dos / teachaid / par / example4.pom < prev    next >
Text File  |  1994-05-19  |  3KB  |  80 lines
  1. ;  The following comment lines are for quick-reference
  2. ;  Copy them into your own POM files to make programming easier
  3. ;
  4. ;  -------------------------------------------  ------------------------------
  5. ;  COMMAND FORMATS                              EXAMPLE
  6. ;  ===========================================  ==============================
  7. ;  SET     var1 value1                          SET     NAME $FLINE[20 26]
  8. ;  IF      value1 value2 var1 value3 [value4]   IF      X = "Y" THEN Z = "N"
  9. ;  -------------------------------------------  ------------------------------
  10. ;  OUT     value1 value2 |output-picture        OUT     "X" "X" |{PRICE}
  11. ;  OUTEND  value1 value2 |output-picture        OUTEND  "X" "X" |{$FLINE}
  12. ;  -------------------------------------------  ------------------------------
  13. ;  MINLEN  number                               MINLEN  "15"
  14. ;  IGNORE  value1 value2                        IGNORE  PRICE "0.00"
  15. ;  ACCEPT  value1 value2                        ACCEPT  $FLINE[1 3] "YES"
  16. ;  -------------------------------------------  ------------------------------
  17. ;  TRIM    var1 spec1 character                 TRIM    PRICE "R" "$"
  18. ;  PAD     var1 spec1 character len             PAD     SERIALNUM "L" "0" "10"
  19. ;  INSERT  var1 spec1 value1                    INSERT  PRICE "L" "$"
  20. ;  CHANGE  var1 value1 value2                   CHANGE  DATE "/" "-"
  21. ;  -------------------------------------------  ------------------------------
  22. ;  SPLIT   from to [,from to] [...]             SPLIT   1 250, 251 300
  23. ;  CHOP    from to [,from to] [...]             CHOP    1 250, 251 300
  24. ;  -------------------------------------------  ------------------------------
  25. ;
  26. ;
  27. ;  PADDING FOR CLARITY
  28. ;  -------------------
  29. ;
  30. ;  Before:   IF PRICE "0.00" BONUS "1.00" "0.00
  31. ;  After:    IF PRICE = "0.00" THEN BONUS = "1.00" ELSE "0.00
  32. ;
  33. ;
  34. ;******************************************************************************
  35. ;
  36. ;  Restrict the lines we'll accept
  37. ;
  38. ACCEPT $FLINE[58 60] = "IBM"
  39. ACCEPT $FLINE[58 60] = "MAC"
  40. ;
  41. ;  Pad out description, with spaces, to 40 characters
  42. ;  We'll also modify the string -PC to read -IBMPC
  43. ;    Note the trailing space after PC to ensure it's at the end of the string
  44. ;
  45. SET    descrip       = $FLINE[19 49]
  46. INSERT descrip         "@PC " "IBM"
  47. PAD    descrip         "R"   " "   "40"
  48. ;
  49. ;  Make quantity only 2 characters wide (maximum would therefore be 99)
  50. ;
  51. SET    qty           = $FLINE[63 66]
  52. TRIM   qty             "A"   " "
  53. PAD    qty             "L"   " "  "2"
  54. ;
  55. ;  Take only the last three digits of the invoice number
  56. ;
  57. SET    inv           = $FLINE[14 16]
  58. ;
  59. ;  Detect minus sign and set price accordingly
  60. ;
  61. SET    price         = $FLINE[70 76]
  62. TRIM   price           "A" " "
  63. IF     $FLINE[77]    = "-" THEN minus = "-" ELSE ""
  64. INSERT price           "L" minus
  65. PAD    price           "L" " " "7"
  66. INSERT price           "L" "$"
  67. ;
  68. ;  Set other fields; note use of uppercase for type
  69. ;
  70. SET    itemnum       = $FLINE[01 07]
  71. SET    type          = $FLUPC[51 55]
  72. SET    cat           = $FLINE[58 60]
  73. ;
  74. ;  Set output as follows:
  75. ;  Invoice, Item, Type (in uppercase), Category
  76. ;  Description, Quantity, Unit price
  77. ;
  78. OUT    "" "" |{inv} {itemnum} {type} {cat}
  79. OUTEND "" "" | {descrip} {qty}    {price}
  80.